Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/iv.dir/00003_frame scripts.ls

Text File | 1996-04-19 | 16.0 KB | 384 lines

on RolloverCheck
  global givATHLETESELECTSPRITE, givARROWSPRITE, givArrowRectList, givCurrArrow, givTOPICSELECTSPRITE, givLOADSPRITE, givCONTROLPANELSPRITE, givSELECTNONESPRITE, givSELECTALLSPRITE, givState, givLastRollover, exitFrame, givEditListPlayFlag, givCreditsCleanupFlag, givSelectCleanupFlag, givRollCreditsCleanupFlag, givTrollCleanupFlag, givMainMonitorRefreshFlag, givTransitionTestCleanupFlag, givFullPath
  if givTransitionTestCleanupFlag = 1 then
    set givTransitionTestCleanupFlag to 0
    TransitionTestCleanup()
    exit
  end if
  if givEditListPlayFlag = 1 then
    set givEditListPlayFlag to 0
    set the editListPlaybackPtr of givState to the editListPlaybackPtr of givState + 1
    MessagePut("incrementing the editListPlaybackPtr to " & the editListPlaybackPtr of givState)
    if (the activeVideoMode of givState = #play) or (the activeVideoMode of givState = #pause) then
      EditListPlay(0, the activeVideoMode of givState)
    else
      EditListPlay(0, #play)
    end if
    exit
  end if
  if givCreditsCleanupFlag = 1 then
    set givCreditsCleanupFlag to 0
    CreditsCleanup()
    exit
  end if
  if givRollCreditsCleanupFlag = 1 then
    set givRollCreditsCleanupFlag to 0
    RollCreditsCleanup()
    set the selectListPlaybackPtr of givState to 1
    EditListPlay(0, #play)
    exit
  end if
  if givSelectCleanupFlag = 1 then
    set givSelectCleanupFlag to 0
    SelectCleanup()
    exit
  end if
  if givTrollCleanupFlag = 1 then
    set givTrollCleanupFlag to 0
    TrollCleanup()
    exit
  end if
  if givMainMonitorRefreshFlag = 1 then
    set givMainMonitorRefreshFlag to 0
    RefreshMainMonitor()
    exit
  end if
  set rollsprite to 0
  set arrowFlag to CheckArrow()
  if ((the mode of givState = #play) and ((arrowFlag = 2) or ((arrowFlag = 3) and (count(the editList of givState) < 1)) or (arrowFlag = 5) or (arrowFlag = 8) or ((arrowFlag = 9) and (count(the editList of givState) < 1)) or (arrowFlag = 11))) or (((arrowFlag = 6) or (arrowFlag = 12)) and (count(GetMonitorListByNumber(6)) = 0)) then
    nothing()
  else
    if arrowFlag <> 0 then
      set str to getAt(givArrowRectList, arrowFlag)
      if arrowFlag > 6 then
        set the castNum of sprite givARROWSPRITE to the number of cast "IncrementArrow" + 1
        set givCurrArrow to arrowFlag - 6
      else
        set the castNum of sprite givARROWSPRITE to the number of cast "DecrementArrow" + 1
        set givCurrArrow to arrowFlag
      end if
      set the locH of sprite givARROWSPRITE to value(item 5 of str)
      set the locV of sprite givARROWSPRITE to value(item 6 of str)
      ResetRollover(99)
      UIRollover(46, 47)
      exit
    end if
  end if
  if the mode of givState = #edit then
    if rollOver(givCONTROLPANELSPRITE + 1) and (count(the editList of givState) > 0) then
      set the castNum of sprite (givCONTROLPANELSPRITE + 1) to the number of cast "save button" + 1
      ResetRollover(givCONTROLPANELSPRITE + 1)
      UIRollover(46, 47)
      exit
    end if
    if rollOver(givCONTROLPANELSPRITE + 2) then
      set the castNum of sprite (givCONTROLPANELSPRITE + 2) to the number of cast "credits button" + 1
      ResetRollover(givCONTROLPANELSPRITE + 2)
      UIRollover(46, 47)
      exit
    end if
    if rollOver(givCONTROLPANELSPRITE + 8) and (count(the questionSelectList of givState) > 0) then
      set the castNum of sprite (givCONTROLPANELSPRITE + 8) to the number of cast "next button" + 1
      ResetRollover(givCONTROLPANELSPRITE + 8)
      UIRollover(46, 47)
      exit
    end if
    if rollOver(givCONTROLPANELSPRITE + 9) then
      set rollsprite to givCONTROLPANELSPRITE + 9
      if the activeVideoMode of givState = #play then
        set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "pause button" + 1
      else
        set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play button" + 1
      end if
      ResetRollover(rollsprite)
      UIRollover(46, 47)
      exit
    end if
    if rollOver(givCONTROLPANELSPRITE + 10) and ((the activeVideoMode of givState = #play) or (the activeVideoMode of givState = #pause)) then
      set rollsprite to givCONTROLPANELSPRITE + 10
      set the castNum of sprite (givCONTROLPANELSPRITE + 10) to the number of cast "stop button" + 1
      ResetRollover(rollsprite)
      UIRollover(46, 47)
      exit
    end if
    if rollOver(givCONTROLPANELSPRITE + 11) and (count(the questionSelectList of givState) > 0) then
      set rollsprite to givCONTROLPANELSPRITE + 11
      set the castNum of sprite (givCONTROLPANELSPRITE + 11) to the number of cast "previous button" + 1
      ResetRollover(rollsprite)
      UIRollover(46, 47)
      exit
    end if
  end if
  if the mode of givState = #play then
    if rollOver(givCONTROLPANELSPRITE + 8) and (count(the questionSelectList of givState) > 0) then
      set rollsprite to givCONTROLPANELSPRITE + 8
      set the castNum of sprite (givCONTROLPANELSPRITE + 8) to the number of cast "play mode next button" + 1
      ResetRollover(rollsprite)
      UIRollover(46, 47)
      exit
    end if
    if rollOver(givCONTROLPANELSPRITE + 9) then
      set rollsprite to givCONTROLPANELSPRITE + 9
      if the activeVideoMode of givState = #play then
        set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode pause button" + 1
      else
        set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode play button" + 1
      end if
      ResetRollover(rollsprite)
      UIRollover(46, 47)
      exit
    end if
    if rollOver(givCONTROLPANELSPRITE + 10) and ((the activeVideoMode of givState = #play) or (the activeVideoMode of givState = #pause)) then
      set rollsprite to givCONTROLPANELSPRITE + 10
      set the castNum of sprite (givCONTROLPANELSPRITE + 10) to the number of cast "play mode stop button" + 1
      ResetRollover(rollsprite)
      UIRollover(46, 47)
      exit
    end if
    if rollOver(givCONTROLPANELSPRITE + 11) and (count(the questionSelectList of givState) > 0) then
      set rollsprite to givCONTROLPANELSPRITE + 11
      set the castNum of sprite (givCONTROLPANELSPRITE + 11) to the number of cast "play mode previous button" + 1
      ResetRollover(rollsprite)
      UIRollover(46, 47)
      exit
    end if
  end if
  if rollOver(givCONTROLPANELSPRITE + 3) and (count(the editList of givState) > 0) then
    set rollsprite to givCONTROLPANELSPRITE + 3
    set the castNum of sprite (givCONTROLPANELSPRITE + 3) to the number of cast "preview button" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if rollOver(givCONTROLPANELSPRITE + 4) and (count(the editList of givState) > 0) then
    set rollsprite to givCONTROLPANELSPRITE + 4
    set the castNum of sprite (givCONTROLPANELSPRITE + 4) to the number of cast "remove button" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if rollOver(givCONTROLPANELSPRITE + 5) and (count(the editList of givState) > 0) then
    set rollsprite to givCONTROLPANELSPRITE + 5
    set the castNum of sprite (givCONTROLPANELSPRITE + 5) to the number of cast "replace button" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if rollOver(givCONTROLPANELSPRITE + 6) then
    set rollsprite to givCONTROLPANELSPRITE + 6
    set the castNum of sprite (givCONTROLPANELSPRITE + 6) to the number of cast "insert button" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if rollOver(givCONTROLPANELSPRITE + 7) then
    set rollsprite to givCONTROLPANELSPRITE + 7
    set the castNum of sprite (givCONTROLPANELSPRITE + 7) to the number of cast "add button" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if rollOver(givSELECTNONESPRITE) and not ((the activeMonitor of givState = 3) and (the mode of givState = #play)) then
    set rollsprite to givSELECTNONESPRITE
    set the castNum of sprite givSELECTNONESPRITE to the number of cast "select none button" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if rollOver(givSELECTALLSPRITE) and not ((the activeMonitor of givState = 3) and (the mode of givState = #play)) then
    set rollsprite to givSELECTALLSPRITE
    set the castNum of sprite givSELECTALLSPRITE to the number of cast "select all button" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if rollOver(givATHLETESELECTSPRITE) then
    set rollsprite to givATHLETESELECTSPRITE
    set the castNum of sprite givATHLETESELECTSPRITE to the number of cast "AthleteSelect" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if rollOver(givTOPICSELECTSPRITE) then
    set rollsprite to givTOPICSELECTSPRITE
    set the castNum of sprite givTOPICSELECTSPRITE to the number of cast "TopicSelect" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if rollOver(givLOADSPRITE) then
    set rollsprite to givLOADSPRITE
    set the castNum of sprite givLOADSPRITE to the number of cast "Load" + 1
    ResetRollover(rollsprite)
    UIRollover(46, 47)
    exit
  end if
  if givFullPath = 1 then
    nothing()
  else
  end if
  ResetRollover(rollsprite)
  UIRollover(46, 47)
end

on CheckArrow
  global givArrowRectList
  set H to the mouseH
  set v to the mouseV
  set found to 0
  repeat with I = 1 to 12
    set str to getAt(givArrowRectList, I)
    if (H >= value(item 1 of str)) and (H <= value(item 3 of str)) and (v >= value(item 2 of str)) and (v <= value(item 4 of str)) then
      set found to I
      return found
      exit
    end if
  end repeat
  return found
end

on ResetRollover rollsprite
  global givATHLETESELECTSPRITE, givARROWSPRITE, givTOPICSELECTSPRITE, givLOADSPRITE, givCONTROLPANELSPRITE, givSELECTALLSPRITE, givSELECTNONESPRITE, givState, givLastRollover
  if rollsprite <> givLastRollover then
    MessagePut("rollsprite, givLastRollover" && rollsprite && givLastRollover)
    if givLastRollover = 99 then
      set the locV of sprite givARROWSPRITE to -100
      set the castNum of sprite givARROWSPRITE to the number of cast "nullcast"
    end if
    if givLastRollover = givSELECTALLSPRITE then
      set the castNum of sprite givSELECTALLSPRITE to the number of cast "select all button"
    end if
    if givLastRollover = givSELECTNONESPRITE then
      set the castNum of sprite givSELECTNONESPRITE to the number of cast "select none button"
    end if
    if givLastRollover = givATHLETESELECTSPRITE then
      set the castNum of sprite givATHLETESELECTSPRITE to the number of cast "AthleteSelect"
    end if
    if givLastRollover = givLOADSPRITE then
      set the castNum of sprite givLOADSPRITE to the number of cast "Load"
    end if
    if givLastRollover = givTOPICSELECTSPRITE then
      set the castNum of sprite givTOPICSELECTSPRITE to the number of cast "TopicSelect"
    end if
    if the mode of givState = #edit then
      if givLastRollover = (givCONTROLPANELSPRITE + 1) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 1) to the number of cast "save button"
      end if
      if givLastRollover = (givCONTROLPANELSPRITE + 2) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 2) to the number of cast "credits button"
      end if
      if givLastRollover = (givCONTROLPANELSPRITE + 8) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 8) to the number of cast "next button"
      end if
      if (givLastRollover = (givCONTROLPANELSPRITE + 9)) and (the activeVideoMode of givState <> #play) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play button"
      end if
      if (givLastRollover = (givCONTROLPANELSPRITE + 9)) and (the activeVideoMode of givState = #play) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "pause button"
      end if
      if (givLastRollover = (givCONTROLPANELSPRITE + 10)) and ((the activeVideoMode of givState = #play) or (the activeVideoMode of givState = #pause)) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 10) to the number of cast "stop button"
      end if
      if givLastRollover = (givCONTROLPANELSPRITE + 11) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 11) to the number of cast "previous button"
      end if
    end if
    if the mode of givState = #play then
      if givLastRollover = (givCONTROLPANELSPRITE + 8) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 8) to the number of cast "play mode next button"
      end if
      if (givLastRollover = (givCONTROLPANELSPRITE + 9)) and (the activeVideoMode of givState <> #play) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode play button"
      end if
      if (givLastRollover = (givCONTROLPANELSPRITE + 9)) and (the activeVideoMode of givState = #play) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode pause button"
      end if
      if (givLastRollover = (givCONTROLPANELSPRITE + 10)) and ((the activeVideoMode of givState = #play) or (the activeVideoMode of givState = #pause)) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 10) to the number of cast "play mode stop button"
      end if
      if givLastRollover = (givCONTROLPANELSPRITE + 11) then
        set the castNum of sprite (givCONTROLPANELSPRITE + 11) to the number of cast "play mode previous button"
      end if
    end if
    if givLastRollover = (givCONTROLPANELSPRITE + 3) then
      set the castNum of sprite (givCONTROLPANELSPRITE + 3) to the number of cast "preview button"
    end if
    if givLastRollover = (givCONTROLPANELSPRITE + 4) then
      set the castNum of sprite (givCONTROLPANELSPRITE + 4) to the number of cast "remove button"
    end if
    if givLastRollover = (givCONTROLPANELSPRITE + 5) then
      set the castNum of sprite (givCONTROLPANELSPRITE + 5) to the number of cast "replace button"
    end if
    if givLastRollover = (givCONTROLPANELSPRITE + 6) then
      set the castNum of sprite (givCONTROLPANELSPRITE + 6) to the number of cast "insert button"
    end if
    if givLastRollover = (givCONTROLPANELSPRITE + 7) then
      set the castNum of sprite (givCONTROLPANELSPRITE + 7) to the number of cast "add button"
    end if
  end if
  set givLastRollover to rollsprite
end

on SelectCleanup
  global givState
  MessagePut("after select cleanup, the questionList is" && the questionList of givState)
end

on CreditsCheck
end

on CreditsCleanup
  global givMAINMONITORSPRITE, givState
  if the mode of givState = #edit then
    set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCast"
  else
    set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCastBlack"
  end if
end

on RollCreditsCleanup
  global givMAINMONITORSPRITE
end

on TrollCleanup
  MessagePut("entering troll cleanup")
  set the visible of sprite 42 to 1
  set the visible of sprite 43 to 1
  SetMode(#edit, 0, "skip")
end

on RefreshMainMonitor
  global givState, givMAINMONITORSPRITE, givEDITTEXTBOXSPRITE, givPlayingQSL
  MessagePut("refreshing the main monitor")
  if the mode of givState = #play then
    set the visible of sprite givMAINMONITORSPRITE to 0
    set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCastBlack"
    set the visible of sprite givMAINMONITORSPRITE to 1
    updateStage()
  else
    set the visible of sprite givMAINMONITORSPRITE to 0
    set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCast"
    set the visible of sprite givMAINMONITORSPRITE to 1
    updateStage()
    set the visible of sprite givEDITTEXTBOXSPRITE to 1
    updateStage()
  end if
  set givPlayingQSL to 0
  DVHide()
  set the activeVideoMode of givState to #stop
  EnableIdleAnim(46, 47)
end

on TransitionTestCleanup
  global givMAINMONITORSPRITE, givTransTestPtr, givState, givEDITTEXTBOXSPRITE, givTransTest
  if (count(the questionSelectList of givState) > 0) and (givTransTestPtr <> 0) then
    set givTransTestPtr to givTransTestPtr + 1
    DoTransitionTest()
    exit
  end if
  set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCast"
  set the visible of sprite givEDITTEXTBOXSPRITE to 1
  EnableIdleAnim(46, 47)
  set givTransTest to 0
end